object ScheduleForm: TScheduleForm Left = 113 Top = 40 BorderStyle = bsDialog Caption = 'Epoch Daily Scheduler..' ClientHeight = 340 ClientWidth = 359 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 3 Top = 31 Width = 69 Height = 278 BorderStyle = bsSingle Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 0 object Label1: TLabel Left = 24 Top = 4 Width = 20 Height = 24 Caption = '00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 45 Top = 7 Width = 15 Height = 13 Caption = ':00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape1: TShape Left = 25 Top = 25 Width = 35 Height = 1 end object Label3: TLabel Left = 24 Top = 26 Width = 20 Height = 24 Caption = '00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 45 Top = 29 Width = 15 Height = 13 Caption = ':30' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape3: TShape Left = 25 Top = 47 Width = 35 Height = 1 end object Label5: TLabel Left = 24 Top = 48 Width = 20 Height = 24 Caption = '01' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 45 Top = 51 Width = 15 Height = 13 Caption = ':00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape5: TShape Left = 25 Top = 69 Width = 35 Height = 1 end object Label7: TLabel Left = 24 Top = 70 Width = 20 Height = 24 Caption = '01' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 45 Top = 73 Width = 15 Height = 13 Caption = ':30' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape7: TShape Left = 25 Top = 91 Width = 35 Height = 1 end object Label9: TLabel Left = 24 Top = 92 Width = 20 Height = 24 Caption = '02' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 45 Top = 95 Width = 15 Height = 13 Caption = ':00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape9: TShape Left = 25 Top = 113 Width = 35 Height = 1 end object Label11: TLabel Left = 24 Top = 114 Width = 20 Height = 24 Caption = '02' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 45 Top = 117 Width = 15 Height = 13 Caption = ':30' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape11: TShape Left = 25 Top = 135 Width = 35 Height = 1 end object Label13: TLabel Left = 24 Top = 136 Width = 20 Height = 24 Caption = '03' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label14: TLabel Left = 45 Top = 139 Width = 15 Height = 13 Caption = ':00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape13: TShape Left = 25 Top = 157 Width = 35 Height = 1 end object Label15: TLabel Left = 24 Top = 158 Width = 20 Height = 24 Caption = '03' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label16: TLabel Left = 45 Top = 161 Width = 15 Height = 13 Caption = ':30' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape15: TShape Left = 25 Top = 179 Width = 35 Height = 1 end object Label17: TLabel Left = 24 Top = 180 Width = 20 Height = 24 Caption = '04' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label18: TLabel Left = 45 Top = 183 Width = 15 Height = 13 Caption = ':00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape17: TShape Left = 25 Top = 201 Width = 35 Height = 1 end object Label19: TLabel Left = 25 Top = 202 Width = 20 Height = 24 Caption = '04' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 46 Top = 205 Width = 15 Height = 13 Caption = ':30' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape19: TShape Left = 26 Top = 223 Width = 35 Height = 1 end object Label21: TLabel Left = 24 Top = 224 Width = 20 Height = 24 Caption = '05' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label22: TLabel Left = 45 Top = 227 Width = 15 Height = 13 Caption = ':00' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape21: TShape Left = 25 Top = 245 Width = 35 Height = 1 end object Label23: TLabel Left = 24 Top = 246 Width = 20 Height = 24 Caption = '05' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label24: TLabel Left = 45 Top = 249 Width = 15 Height = 13 Caption = ':30' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape23: TShape Left = 25 Top = 267 Width = 35 Height = 1 end object ScrollBar: TScrollBar Left = 4 Top = 4 Width = 16 Height = 265 Kind = sbVertical Max = 36 TabOrder = 0 OnChange = ScrollBarChange end end object Panel2: TPanel Left = 76 Top = 31 Width = 281 Height = 278 BorderStyle = bsSingle Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 1 object Shape2: TShape Left = 4 Top = 25 Width = 254 Height = 1 end object Shape4: TShape Left = 4 Top = 47 Width = 254 Height = 1 end object Shape6: TShape Left = 4 Top = 69 Width = 254 Height = 1 end object Shape8: TShape Left = 4 Top = 91 Width = 254 Height = 1 end object Shape10: TShape Left = 4 Top = 113 Width = 254 Height = 1 end object Shape12: TShape Left = 4 Top = 135 Width = 254 Height = 1 end object Shape14: TShape Left = 4 Top = 157 Width = 254 Height = 1 end object Shape16: TShape Left = 4 Top = 179 Width = 254 Height = 1 end object Shape18: TShape Left = 4 Top = 201 Width = 254 Height = 1 end object Shape20: TShape Left = 5 Top = 223 Width = 254 Height = 1 end object Shape22: TShape Left = 4 Top = 245 Width = 254 Height = 1 end object Shape24: TShape Left = 4 Top = 267 Width = 254 Height = 1 end object Button1: TButton Tag = 3 Left = 261 Top = 12 Width = 14 Height = 12 TabOrder = 0 OnClick = Button1Click end object Button2: TButton Tag = 4 Left = 261 Top = 34 Width = 14 Height = 12 TabOrder = 1 OnClick = Button1Click end object Button3: TButton Tag = 5 Left = 261 Top = 56 Width = 14 Height = 12 TabOrder = 2 OnClick = Button1Click end object Button4: TButton Tag = 6 Left = 261 Top = 78 Width = 14 Height = 12 TabOrder = 3 OnClick = Button1Click end object Button5: TButton Tag = 7 Left = 261 Top = 100 Width = 14 Height = 12 TabOrder = 4 OnClick = Button1Click end object Button6: TButton Tag = 8 Left = 261 Top = 122 Width = 14 Height = 12 TabOrder = 5 OnClick = Button1Click end object Button7: TButton Tag = 9 Left = 261 Top = 144 Width = 14 Height = 12 TabOrder = 6 OnClick = Button1Click end object Button8: TButton Tag = 10 Left = 261 Top = 166 Width = 14 Height = 12 TabOrder = 7 OnClick = Button1Click end object Button9: TButton Tag = 11 Left = 261 Top = 188 Width = 14 Height = 12 TabOrder = 8 OnClick = Button1Click end object Button10: TButton Tag = 12 Left = 261 Top = 210 Width = 14 Height = 12 TabOrder = 9 OnClick = Button1Click end object Button11: TButton Tag = 13 Left = 261 Top = 232 Width = 14 Height = 12 TabOrder = 10 OnClick = Button1Click end object Button12: TButton Tag = 14 Left = 261 Top = 254 Width = 14 Height = 12 TabOrder = 11 OnClick = Button1Click end object Edit1: TEdit Left = 4 Top = 9 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 12 OnChange = Edit1Change end object Edit2: TEdit Tag = 1 Left = 4 Top = 31 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 13 OnChange = Edit1Change end object Edit3: TEdit Tag = 2 Left = 4 Top = 53 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 14 OnChange = Edit1Change end object Edit4: TEdit Tag = 3 Left = 4 Top = 75 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 15 OnChange = Edit1Change end object Edit5: TEdit Tag = 4 Left = 4 Top = 97 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 16 OnChange = Edit1Change end object Edit6: TEdit Tag = 5 Left = 4 Top = 119 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 17 OnChange = Edit1Change end object Edit7: TEdit Tag = 6 Left = 4 Top = 141 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 18 OnChange = Edit1Change end object Edit8: TEdit Tag = 7 Left = 4 Top = 163 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 19 OnChange = Edit1Change end object Edit9: TEdit Tag = 8 Left = 4 Top = 185 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 20 OnChange = Edit1Change end object Edit10: TEdit Tag = 9 Left = 5 Top = 207 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 21 OnChange = Edit1Change end object Edit11: TEdit Tag = 10 Left = 4 Top = 229 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 22 OnChange = Edit1Change end object Edit12: TEdit Tag = 11 Left = 4 Top = 251 Width = 253 Height = 15 AutoSize = False BorderStyle = bsNone Color = clTeal Ctl3D = False ParentCtl3D = False TabOrder = 23 OnChange = Edit1Change end end object Datebtn: TBitBtn Left = 3 Top = 4 Width = 218 Height = 25 Hint = 'This Schedules Date' Caption = 'Wednesday, 23 November, 1988' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = DatebtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 003337777777777777F330FFFFFFFFFFF03337F3333FFF3337F330FFFF000FFF F03337F33377733337F330FFFFF0FFFFF03337F33337F33337F330FFFF00FFFF F03337F33377F33337F330FFFFF0FFFFF03337F33337333337F330FFFFFFFFFF F03337FFF3F3F3F3F7F33000F0F0F0F0F0333777F7F7F7F7F7F330F0F000F070 F03337F7F777F777F7F330F0F0F0F070F03337F7F7373777F7F330F0FF0FF0F0 F03337F733733737F7F330FFFFFFFF00003337F33333337777F330FFFFFFFF0F F03337FFFFFFFF7F373330999999990F033337777777777F733330FFFFFFFF00 333337FFFFFFFF77333330000000000333333777777777733333} NumGlyphs = 2 end object Titlebtn: TBitBtn Left = 221 Top = 4 Width = 136 Height = 25 Hint = 'This Schedules Title' Caption = 'Untitled' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = TitlebtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3 333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0 C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0 F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF 00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333 3333333373FF7333333333333000333333333333377733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object Optionsbtn: TBitBtn Left = 3 Top = 313 Width = 75 Height = 25 Hint = 'Main Options' Caption = '&Options' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = OptionsbtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559 1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559 1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559 193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011 11155557F755F777777555000755033305555577755F75F77F55555555503335 0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555 05555757F75F75557F5505000333555505557F777FF755557F55000000355557 07557777777F55557F5555000005555707555577777FF5557F55553000075557 0755557F7777FFF5755555335000005555555577577777555555} NumGlyphs = 2 end object Firstbtn: TBitBtn Left = 82 Top = 313 Width = 25 Height = 25 Hint = 'First Schedule' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = FirstbtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033 70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033 70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033 70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 end object Prevbtn: TBitBtn Left = 107 Top = 313 Width = 25 Height = 25 Hint = 'Previous Schedule' ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = PrevbtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333 80E338F33333333338F3E0F33333333380E338F3333F3FF338F3E0F333033303 80E338F3338F88F338F3E0F33003300380E338F3388F88F338F3E0F300030003 80E338F3888F88F338F3E0F33003300380E338F3388F88F338F3E0F333033303 80E338F33383883338F3E0F33333333380E338F33333333338F3E0F333333333 80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000 00E33888888888888833EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 end object Nextbtn: TBitBtn Left = 132 Top = 313 Width = 25 Height = 25 Hint = 'Next Schedule' ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = NextbtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333 80E338F33333333338F3E0F33333333380E338F333FF3F3338F3E0F303330333 80E338F3388F8FF338F3E0F30033003380E338F3388F88FF38F3E0F300030003 80E338F3388F888338F3E0F30033003380E338F3388F883338F3E0F303330333 80E338F33883833338F3E0F33333333380E338F33333333338F3E0F333333333 80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000 00E33888888888888833EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 end object Lastbtn: TBitBtn Left = 158 Top = 313 Width = 25 Height = 25 Hint = 'Last Schedule' ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = LastbtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000 00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333 70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333 70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003 70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333 70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333 70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000 00E33777777777777733EEEEEEEEEEEEEEE33333333333333333} NumGlyphs = 2 end object BitBtn7: TBitBtn Left = 300 Top = 313 Width = 57 Height = 25 TabOrder = 9 OnClick = BitBtn7Click Kind = bkHelp end object SelSched: TBitBtn Left = 187 Top = 313 Width = 110 Height = 25 Hint = 'Select Existing Schedule' Caption = '&Select Schedule' ParentShowHint = False ShowHint = True TabOrder = 10 OnClick = SelSchedClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33 33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888 8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF 0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000 B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3 333333333777733333333333FBFBFB3333333333333333333333} NumGlyphs = 2 end object Popup: TPopupMenu AutoPopup = False Left = 145 Top = 132 object NewSchedule1: TMenuItem Caption = '&New Schedule' OnClick = NewSchedule1Click end object N1: TMenuItem Caption = '-' end object DeleteThisSchedule1: TMenuItem Caption = '&Delete This Schedule' OnClick = DeleteThisSchedule1Click end object DeleteAllSchedules1: TMenuItem Caption = 'Delete &All Schedules' OnClick = DeleteAllSchedules1Click end object N2: TMenuItem Caption = '-' end object ReminderDate1: TMenuItem Caption = '&Reminder Date' OnClick = ReminderDate1Click end object ClearReminder1: TMenuItem Caption = '&Clear Reminder' Visible = False OnClick = ClearReminder1Click end object N3: TMenuItem Caption = '-' end object PrintSchedule1: TMenuItem Caption = '&Print Schedule' OnClick = PrintSchedule1Click end object PrintTheLot1: TMenuItem Caption = 'Print The &Lot' OnClick = PrintTheLot1Click end object N5: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = '&Exit' OnClick = Exit1Click end end object LineMenu: TPopupMenu AutoPopup = False Left = 217 Top = 140 object Insert1: TMenuItem Caption = '&Insert' OnClick = Insert1Click end object Delete1: TMenuItem Caption = '&Delete' OnClick = Delete1Click end object Erase1: TMenuItem Caption = '&Erase' OnClick = Erase1Click end object N4: TMenuItem Caption = '-' end object UpperCase1: TMenuItem Caption = '&UpperCase' OnClick = UpperCase1Click end object LowerCase1: TMenuItem Caption = '&LowerCase' OnClick = LowerCase1Click end object Capitalise1: TMenuItem Caption = '&Capitalise' OnClick = Capitalise1Click end end end